home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / DB_CLIPP / 1159.ZIP / DBPACK.PRG < prev    next >
Text File  |  1986-10-14  |  352b  |  21 lines
  1. CLEAR
  2. @ 5,20 SAY 'NOW REBUILDING DATA BASE '
  3. OSS='DATABASE'+NCHR
  4. ?? &OSS
  5. CLOSE DATABASES
  6. DBNAME='DATA'+NCHR
  7. INDEX1=DBNAME+'TV'
  8. INDEX2=DBNAME+'SN'
  9. IF DBINDEX=0
  10.  USE &DBNAME INDEX &INDEX1,&INDEX2
  11.  PACK
  12. ELSE
  13.  USE &DBNAME
  14.  PACK
  15.  INDEX ON TVA_NO TO &INDEX1
  16.  INDEX ON SERIAL_NO TO &INDEX2
  17.  SET INDEX TO &INDEX1,&INDEX2
  18.  PACK
  19. ENDIF
  20. RETURN
  21.